home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / rbbs_pc / 17bals.zip / RBBSSUB1.ALS < prev    next >
Text File  |  1988-10-12  |  5KB  |  153 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against virgin17\rbbssub1.bas to produce ..\rbbssub1.bas
  3. * rbbssub1.bas:  Date 10-2-1988  Size 52864 bytes
  4. * ------------[ Created 10-11-1988 06:53:23 ]------------
  5. * REPLACING old line(s) by new
  6. 59660 SUB PUTWORK (STRNG$,REC.NUM,REC.LEN) STATIC
  7.       ON ERROR GOTO 65000
  8.       FIELD #2,REC.LEN AS UPLOAD.RECORD$
  9.       LSET UPLOAD.RECORD$ = STRNG$
  10.       REC.NUM = REC.NUM + 1
  11.       PUT #2,REC.NUM
  12.       END SUB
  13. * ------[ first line different ]------
  14. '
  15. ' $SUBTITLE: 'DGSALIAS - Subroutine to Create/Update Alias Info file'
  16. ' $PAGE
  17. '
  18. '  SUBROUTINE NAME    -- DGSALIAS
  19. '
  20. '  INPUT PARAMETERS   --     PARAMETER                    MEANING
  21. '                         GRN$                        CONFERENCE NAME
  22. '                         ORIG.USER.NAME$             USERS - LOG ON NAME
  23. '                         DGS.ALIAS$                  USERS - ALIAS NAME
  24. '                         DGS.STL$                    NULL FIRST TIME IN
  25. '                                                     'STILL' IF ALIAS EXISTS
  26. '                                                     OR REAL NAME
  27. '                         DGS.FILE.NAME$              CONFERENCE ALIAS FILE
  28. '
  29. '  OUTPUT PARAMETERS  --  GRN$ ORIG.USER.NAME$ DGS.ALIAS$ DGS.STL$
  30. '                         DGS.FILE.NAME$
  31. '
  32. '  SUBROUTINE PURPOSE --  TO READ CONFA.DEF AND GET USERS ALIAS OR
  33. '                         CREATE ONE
  34. '
  35.      SUB DGSALIAS (GRN$,ORIG.USER.NAME$,DGS.ALIAS$,DGS.STL$,DGS.FILE.NAME$) STATIC
  36. '
  37.      IF DGS.STL$ = "" THEN
  38.     CONFA.DEF.FLAG = 0
  39.     CALL BRKFNAME (MAIN.USER.FILE$,DRV$,PREFIX$,EXT$,TRUE)
  40.     DGS.FILE.NAME$ = DRV$ + GRN$ + "A.DEF"
  41.     CALL FINDIT (DGS.FILE.NAME$)
  42.     IF OK THEN
  43.        CONFA.DEF.FLAG = TRUE
  44.     END IF
  45.     IF CONFA.DEF.FLAG = TRUE THEN
  46.        OPEN "I", 7, DGS.FILE.NAME$
  47.        DGS.ALIAS$ = ""
  48.        WHILE DGS.ALIAS$ = "" AND NOT EOF(7)
  49.           INPUT #7, DGS.USER.NAME$, DGS.TEMP.ALIAS$
  50.           DGS.UNL = LEN(DGS.USER.NAME$)
  51.           IF DGS.USER.NAME$ = LEFT$(ORIG.USER.NAME$,DGS.UNL) THEN
  52.          DGS.ALIAS$ = DGS.TEMP.ALIAS$
  53.           END IF
  54.        WEND
  55.        CLOSE 7
  56.     ELSE
  57.        DGS.ALIAS$ = "NO CONFA.DEF"
  58.        EXIT SUB
  59.     END IF
  60.      END IF
  61.      CALL GOODALS (GRN$,ORIG.USER.NAME$,DGS.ALIAS$,DGS.STL$,DGS.FILE.NAME$)
  62.      END SUB
  63. '
  64. '
  65. ' $SUBTITLE: 'GOODALS - Subroutine to Make Sure Alias Good'
  66. ' $PAGE
  67. '
  68. '  SUBROUTINE NAME    -- GOODALS
  69. '
  70. '  INPUT PARAMETERS   --     PARAMETER                    MEANING
  71. '                         GRN$                        CONFERENCE NAME
  72. '                         ORIG.USER.NAME$             USERS - LOG ON NAME
  73. '                         DGS.ALIAS$                  USERS - ALIAS NAME
  74. '                         DGS.STL$                    NULL FIRST TIME IN
  75. '                                                     'STILL' IF ALIAS EXISTS
  76. '                                                     OR REAL NAME
  77. '                         DGS.FILE.NAME$              CONFERENCE ALIAS FILE
  78. '
  79. '  OUTPUT PARAMETERS  --  GRN$ ORIG.USER.NAME$ DGS.ALIAS$ DGS.STL$
  80. '                         DGS.FILE.NAME$
  81. '
  82. '  SUBROUTINE PURPOSE --  TO READ CONFA.DEF AND SEE IF GET USERS ALIAS IS
  83. '                         ALREADY IN USE OR A REAL NAME
  84. '
  85.      SUB GOODALS (GRN$,ORIG.USER.NAME$,DGS.ALIAS$,DGS.STL$,DGS.FILE.NAME$) STATIC
  86. '
  87.      IF DGS.ALIAS$ = "" THEN
  88.     DGS.SFN.SLN$ = SYSOP.FIRST.NAME$+" "+SYSOP.LAST.NAME$
  89.     A$ = "Do you" +DGS.STL$+ " want to use an Alias? (Y,[N])"
  90.     SUBROUTINE.PARAMETER = 1
  91.     CALL TGET
  92.     IF YES THEN
  93.        ABFLG$ = ""
  94.        A$ = "Enter Alias (31 Char. Max.) "
  95.        SUBROUTINE.PARAMETER = 1
  96.        CALL TGET
  97.        CALL ALLCAPS (B$)
  98.        IF B$ = "" OR INSTR(SPACE$(31),B$) > 0 THEN
  99.           B$ = ""
  100.           ABFLG$ = "Alias Must NOT be Blank"
  101.        END IF
  102.        IF LEN(B$) > 31 THEN
  103.           B$= ""
  104.           ABFLG$ = "Length Must NOT Exceed 31 Characters"
  105.        END IF
  106.        IF B$ = "SYSOP" OR B$ = DGS.SFN.SLN$ THEN
  107.           A$ = CHR$(7)+CHR$(7)
  108.           A$ = A$ + "Wrong Answer! Alias Request Denied!"
  109.           A$ = A$ + CHR$(13) + "Contact Sysop for Alias Retry"
  110.           CALL QTPUT (A$,2)
  111.           DGS.ALIAS$ = ORIG.USER.NAME$+CHR$(250)
  112.           ACTIVE.USER.NAME$ = ORIG.USER.NAME$+CHR$(250)
  113.           FIRST.NAME$ = ORIG.USER.NAME$+CHR$(250)
  114.        ELSE
  115.           OPEN "I", 7, DGS.FILE.NAME$
  116.           WHILE ABFLG$ = "" AND NOT EOF(7)
  117.          INPUT #7, DGS.USER.NAME$, DGS.TEMP.ALIAS$
  118.          IF B$ = DGS.USER.NAME$ THEN
  119.             ABFLG$ = " is a Real User"
  120.          ELSE
  121.             IF B$ = DGS.TEMP.ALIAS$ THEN
  122.                ABFLG$ = " has Already been Used"
  123.             END IF
  124.          END IF
  125.           WEND
  126.           CLOSE 7
  127.           IF ABFLG$="" THEN
  128.          DGS.ALIAS$ = B$
  129.          ACTIVE.USER.NAME$ = B$
  130.          FIRST.NAME$ = B$
  131.           ELSE
  132.          A$="Sorry "+FIRST.NAME$+" but "+B$+ABFLG$
  133.          CALL QTPUT (A$,1)
  134.          DGS.STL$ = " still"
  135.          DGS.ALIAS$ = ""
  136.           END IF
  137.        END IF
  138.     ELSE
  139.        DGS.ALIAS$ = ORIG.USER.NAME$
  140.     END IF
  141.     IF DGS.ALIAS$ <> "" THEN
  142.        CLOSE 2
  143.        OPEN "A", 2, DGS.FILE.NAME$
  144.        WRITE #2, ORIG.USER.NAME$, DGS.ALIAS$
  145.        CLOSE 2
  146.     END IF
  147.      ELSE
  148.     ACTIVE.USER.NAME$ = DGS.ALIAS$
  149.     FIRST.NAME$ = DGS.ALIAS$
  150.      END IF
  151.  END SUB
  152.  
  153.